home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 09-22.BAS < prev    next >
BASIC Source File  |  1991-06-07  |  773b  |  45 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. Status = SETMEM(-1*(64000+16))
  6.  
  7. NewMode = FGbestmode(320,200,2)
  8. IF NewMode < 0 OR NewMode = 12 THEN
  9.    PRINT "This program requires a 320 x 200 color graphics mode."
  10.    STOP
  11. END IF
  12. OldMode = FGgetmode
  13. FGsetmode NewMode
  14.  
  15. FGsetcolor 7
  16. FGrect 0, 319, 0, 199
  17. FGsetcolor 9
  18.  
  19. FOR Row = 0 TO 24
  20.    CharString$ = "   This is row" + STR$(Row) + "    "
  21.    FGlocate Row, 0
  22.    FGtext CharString$, 20
  23.    FGtext CharString$, 20
  24. NEXT
  25. FGwaitkey
  26.  
  27. Status = FGallocate(1)
  28. FGsethpage 1
  29. FGsave 96, 223, 88, 111
  30. FGsetcolor 1
  31. FGrect 96, 223, 88, 111
  32. FGsetcolor 15
  33. FGlocate 12, 13
  34. FGtext "Press any key.", 14
  35. FGwaitkey
  36.  
  37. FGrestore 96, 223, 88, 111
  38. FGwaitkey
  39.  
  40. Status = FGfreepage(1)
  41. FGsetmode OldMode
  42. FGreset
  43.  
  44. END
  45.